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APL2 is a rich and extraordinary language used by many people. The basics of the language are easy to grasp but, 
learning the subtleties of the language can take years. 


Most people are entranced with the power of APL2, but have a hard time thinking in terms of Arrays. Even experts in 
APL2 sometimes have trouble remembering algorithms they have not used recently. What is needed is a library of "APL2 
phrases" that can be made available to the programmer to solve a variety of common application problems. 


In order to speed up the learning process of APL2, APL2 Phrases was developed. With over 650 distinct APL2 phrases, 
sorted into 24 general categories, APL2 Phrases represents a fairly complete list of solutions to common application 
problems. By having a single repository for APL2 phrases, many of us can take advantage of algorithms that others 
have developed. 


The idioms themselves may be freely distributed. 


I am indebted to many fellow IBMers for their help in generating the IDIOM list. Thanks to Ed Kellerman and 

Rich Hartmann for their help in coding the system. Thanks to Alan Graham, Ram Biyani, Ray Polivka, John Lindley, 
Dick Dunbar, Gary Logan, Dan Milch, Dick Conner, Dave Macklin, Karl Soop, Tuong Tran, and Ray Trimble for their 
contributions of idioms and ideas. I am also indebted to The Finnish APL Association for their Pocket Library. 

Their library provided insight to some of the common problems facing programmers. 


To get a hardcopy of the FINNAPL Pocket Library, contact the Finnish APL Association: 


FinnAPL 

P.O. Box 1005 
SF-00101 Helsinki 10 
Finland 


Note: The information in this document was extracted from IBM Technical Report 01.4845 and the IDIOMS workspace 
that is included in Workstation APL2. The technical report was copyrighted by IBM in 1989. The workspace was 
copyrighted by IBM in 2002. 


CONVENTIONS 


Some phrases are written in both index origins. If the algorithm is 
"origin dependent", the index origin 0 version is listed first. 


Short names are used so they can be easily converted to be compatible 


with your own code. 


Scalar or one Boolean 
item vector Character 


- Graded 
or Grouped 


One item vector Floating Point Lengths 


Vector Integer 
Matrix Numeric 
Array Complex 


Positions 
Unique 


V (vector) is implied unless otherwise specified. Other characters, 
W, X, Y, etc., are used to differentiate between two or more variables 
within an idiom that are otherwise the same. Examples: 


General arrays 

Boolean matrices 
Boolean scalars 
Character arrays 
Character vectors 
Graded array of 
floating points 

Graded integer vectors 
Graded Matrix 


Integer matrices 


eee Numeric vectors 
PAV Position array of 


PS 
UM 


vectors 

Position scalars 
Unique matrices 
Vector of matrices 
Vector of vectors 
General vectors 


There are also a few global variables that are assumed within the idioms. 


CONTENTS DEFINITION 


ABCDEFGHIJKLMNOPORSTUVWXYZ 
abcdefghijkimnopgqrstuvwxyz 


abcdefghijkimnopgqrstuvwxyz 
0123456789 
QWERTYUIOPASDFGHJKLZXCVBNM 
DAF (1256) +32xOAVEALP 

DAF (1256) -32x0AVELOW 


Upper case alphabet 
Alternate alphabet 
Lower case alphabet 
10 numerals 

Arb seq of alphabet 
OAV with ALP to LOW 
OAV with LOW to ALP 


Assignment Algorithms 


@(O=ONC 'A')/'Ae1! 
4 (1==A) /'AecA! 
Xet(' 'v.4V) 4X Veo 
M+0 ISp''! 
N+BeI¢F+Z<10 

(N B I F Z)<«vvV 
VV<+N BIF Z 
Vello'0 ',V 
Velle°CSV,VV 

°c [1] MX, '<', FMY 
°c [2]MX,'<', MY 
Vel 23456789 0 
O«+A<+2 109120 

VA+s Ip'n! 


Ve(pv) VtO V+Oe+'Finished? 


FS<«|[/10 
FS<[/10 
BA+?Ip2 

BA+ 1+?102 
I+1+1IS?IS 
I<IS?IS 
I<1+?ISpIs 
I+? ISpIs 

(O O&M) +1 

(1 18M) +1 
NS<«V [ (0#pV) ? eV] 
Z+BS>X Y 
Z<«(BS+1)>X Y 
Z+TtBSYX Y 


A+(c 1 0 11xNA)OSW SX SY 


,U 


S+('1 0 11xNS)>SW SX SY 


A+PA>""cA 
AV+PAV>°"ccA 

(,A) [ (pA) +@PM] «Vv 

(,A) [1+ (pA) 1& 1+PM] <+V 
(PVIcA) <V 

VePVI "CA 
X+'linel',0pY+'line2' 
X<«t'linel' Ye'line2' 
CM+'|'; (' *, [0] CM, [0] 
Chiesa Pe GM Lr] 
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Assign value to A if not assigned. 

Change A to scalar if it is simple. 

Change X if new value given. 

Initialize a matrix with no rows. 
Initialize variables to the empty vector. 
Splitting a variable into a set of variables. 
Joining a set of variables into one variable. 
Execute which works on empty vector. 
Execute each with prototype of CSV. 
Assigns MY-values to matrix of MX-names. 
Assigns MY-values to matrix of MX-names. 
Input continuation. 

Output assigned value. 

Quick input of (x/I) strings. I=pVA 
Prompt and response on same line. 

Largest possible number. 

Smallest possible number. 

I random boolean numbers. 

I random boolean numbers. 

Random numbers between 1-IS w/o repl. 
Random numbers between 1-IS w/o repl. 
Random numbers between 1-IS w/repl. 

Random numbers between 1-IS w/repl. 
Reassign main diagonal of matrix. 

Reassign main diagonal of matrix. 

Select random item from vector. Works on ''. 
Select X or Y depending on BS. 

Select X or Y depending on BS. 

Select X or Y depending on BS. 

Selection depending on sign of array. 
Selection depending on sign of scalar. 
Chipmunk. Selective picking from array. 
Selective multiple subarrays from array. 
Scatter assignment. (pPM)=(pV),ppA 
Scatter assignment. (pPM)=(pV),ppA 
Scatter assignment. (pPV)=pV. (pp PV)=ppA 
Scatter indexing. (pPV)=pV. (pp PV)=ppA 
Pornography. Combining two lines into one. 
Pornography. Combining two lines into one. 
Framing CM in a box. 

Framing CM in a box. 


Boolean Selection Algorithms 


Be 141, vV/MG#1eMG 
Bel 4 ( a ea 1 
ae a 1) 1)/1 
Be 1+1+/L) acy 
ee ane 
nee 


ca Ly) fd 


obs 


[/P)eP 
B) /B 
Be~XEY 

BeMA .=S 

Bev /CeECM 

BM<+ tv /VCEe "> cCM 

Bev /MXA .=QMY 

Bev /MVXA. (="") QMVY 
Be, 1t [0] CecM 

Be, 1t [1] CeCmM 


BA<A="cV 
(, BA) <<\, BA+CeCA 
BeCMA .EC 


BeOa.=t0p°M 
Be ((xIS) xpB) TIS4B 


pA LL) 4 Lyf 
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Boolean first 
Boolean last 
Boolean endin 
Boolean endin 
Boolean endin 
Boolean endin 
Boolean L[i] 
Boolean L[i] 
Boolean start 
Boolean start 
Boolean start 
Boolean start 
Boolean start 
Boolean start 
Boolean start 
Boolean expan 
Boolean items 
Boolean rows 
Boolean rows 
Boolean mask 
Boolean rows 
Boolean rows 
Boolean rows 
Boolean rows 
Item equals. 
Boolean one a 


item of each change in MG. 
item of each change in MG. 
g changes given # duped items. 
g changes given # duped items. 
g changes given # duped items. 
g changes given # duped items. 
gaps after each one. 
gaps after each one. 


ing changes given # duped items. 
ing changes given # duped items. 


changes given length vector L. 
changes given length vector L. 
changes given length vector L. 
changes given length vector L. 
vector given position indices. 
d length for headers. 
in X that are not in Y. 
of M all equal to scalar S. 
of CM containing C. 
of CM containing VC. 
of MX containing MY. 
of MVX containing MVY. 
of CM starting with C. 
of CM starting with C. 
Find item V in array A. 
t first occurrence of C in CA. 


Does each row contain only items from C? 


Which rows of 
Shift B forwa 


M are all numeric? 
rd or backward IS positions. 


Boolean Tests General Algorithms 


BS«+VA.=TV 

BS¢VA .EcTV 
BS+V=10V 
BS<AX=AY 

BS¢ (V1V) =1pV 
BS+>/VOAF2CX CY 
BS+</AOAFDCX CY 
BS+>/AOAFDCX CY 
BS+</VOAF2CX CY 
BS«a/,YeEXx 
BO+NS>pV 

BeN>pA 

BS<A=FA 

BS<+1<=A 

BS+12=A 
BS+0EppA 
BS+1leEppA 
BS<0EpA 
BS+04#p9,A 
BS+A=%A 
BS+A=- 8A 
BS<A/(tVeEC) ,VENUM,' _',C«ALP,ALT, 
BS+ 140NC V 
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fA Boolean test: 


Boolean 
Boolean 
Boolean 
Boolean 
Boolean 


test: 
test: 
test: 
test: 
test: 
Is CX lexically less than CY? 

Is CX lexically less than or equal to CY? 
Is CX lexically greater than CY? 


Are all items in V equal? 1== 
Are all items in V equal? 

Are all items in V equal? 

Is AX identical to AY? 

Are all items of V unique? 


Is Y 


Is CX lexically greater than or equal to CY? 
Boolean test: 


a subset of X? 


Does vector V have less than NS items? 


Are there less 
test: 
test: 
test: 
test: 
test: 
test: 
test: 
test: 
test: 


Boolean 
Boolean 
Boolean 
Boolean 
Boolean 
Boolean 
Boolean 
Boolean 
Boolean 


AA' A Boolean 


is 


i 
PPP PPP Pp PY 


test: 
Is V 


than N items in each dim? 


a simple character array? 
a nested array? 

a simple array? 

a scalar? 

a vector? 


non-empty? 

symmetric? 
anti-symmetric? 

Is V a valid APL name? 
a valid APL name? 


Boolean Tests Numeric Algorithms 


BS<+#/0 1eB 

BS+#/0 1e6AB 

BS+AB=10AB 

BS<«A/B 

BS<«v/B 

BS+«~v/B 

BS<«#/B 

BS<a/eBe0 1 

BS+ (tO pcA) =(pA) pO 

BS<0=T0pA 

BS+~xtYN 

BS« | /AN 

BS«+~xTtAN 

BS+«|/YN 

BS+«v/~2|N 

BS<«a/2|N 

BS<a/N>0 

BS<«A/N=[ \N 

BS<«A/N=[ \N 

BS«N [AN] =1+1oN 

BS<«N [AN] =1pN 

BS«N [AN] =NX [ANX] 

BS«a/e~2|NA 

BS<«a/eENA=| NA 
BS«0=+/0=((2xIS¥2) ,3+2x1|.5xIS*.5 
BS«0=+/0=((2xIS¥2) ,1+2x1|.5xIS*.5 
Be</ (N<[N) ,N°.<XY 

Be ( (TXY) <N) AN<T OXY 

Be</N°.<XY 

Be>/N°.>XY 

Be ((TXY) <N) ANS Tt OXY 

BS<+04.=N 

BS<t=/X Y fn Y X 

BS+((V £1 X)£2 Y)=V £1 X% £2 Y 
BS<+((V £1 X)£2 Y)=tf1/V X £2cyY 


Boolean 
Boolean 
Boolean 
Boolean 
Boolean 
Boolean 
Boolean 
Boolean 
Boolean 
Boolean 
Boolean 
Boolean 
Boolean 
Boolean 
Boolean 
Boolean 
Boolean 
Boolean 
Boolean 
Boolean 
Boolean 
Boolean 
Boolean 
Boolean 
Is 


an 
in 
in 
in 
in 


AZ2AAZAAAAD>D 


test: 
test: 
test: 
test: 
test: 
test: 
test: 
test: 
test: 
test: 
test: 
test: 
test: 
test: 
test: 
test: 
test: 
test: 
test: 
test: 
test: 
test: 
test: 
test: 


Boolean 
Boolean 
integer in range 


range 
range 
range 
range 


Ain't Dot Is. 
Test for commutativity of fn. 

Test for associativity of £1 and f2. 
Test for distributivity of f1 and £2. 


All 
All 
All 
Are 
Are 
Are 
Par 
Is 

Is 
Is 
Is 


test 
(XY 
[XY 
(XY 
[XY 


Te 


items in simple B equal? 
items in B equal? 
items in B equal? 
all true? 
any true? 
none true? 
ity. 
B boolean? 
A simple numeric? 
A numeric? (if homogeneous) 
first item largest? 
first item largest? 
first item smallest? 
first item smallest? 
any element of N even? 
every element of N odd? 
every element of N positive? 
N in ascending column order. 
in ascending row order. 
permutation vector? 
permutation vector? 
permutation of NX? 
every element of NA even? 
every element of NA integer? 
Is IS prime? 
: Is IS prime? 
[XY) XY «> lo,hi. 
) XY «> lo,hi. 
) XY «> lo,hi. 
] XY «> lo,hi. 
] XY «> lo,hi. 
st for even # of non-zeros. 


N 
N 
N 
N 


Computational Algorithms 


NS++/N 
NS+-/N 
NS<«x/N 
NS++/N 
NS<++/|N 

NS+-/|N 

Ne+\N 

N+NS+/N 

Ne 2-/0,N 
Net-//NS 1/2 N 
N+e-\11S 
T++\14+118S 
I<+\118S 
T+4+\+\14+11S 
T++\+\118S 
NA+«AX+AY+AY=0 
NA+AXx+AY 
N+«100xNM=+ [1 
N+«100xNM=+ [2 
N+«100xNM-+ [0 
N+«100xNM=+ [1 


S+-/x/0 16M 
Se ee 
M+«IS ISp1,1Sp0 
M+tH/OpcISp0 
Me (11S) °.=11S 
M+ (1+11I1S)°.x1+118S 
Me (11S) °.x11IS 

Me (11IS)°.>11S 
M+X°.xY 
M+MX+. xMY 
A+AX, .xAY 
74 (2=+/0=I°.|1I)/I«1+118S 
(2= ae Ie.|1I)/ 

ane / (A/0=Ve.|1I) /Vel+1| /I 
IS¢[/(a/0 oe I) /Ve1| Me 
M<«0= ee oe I 
M+0= on | I 
ee 


Z2Aez 


~1xcQ0 1 2)6°cM 


«(0=I|IS 


F 


Va 
«+ (0=I/1IS) /I<1+1|1S+2 
Se+/F[V|F] 


FA<«NA®A 


SDaDIDIIDIDIDIDIIDIDIDIDIDIDIDIDIDIDIDIDIDIDIDIDIDIDIDIDIDIDIDIIDIDIDIDIDIDIDIDIIDIIDIDIDIDIDIIDIDIDIIIDIDIIIDIIIDIIDIDD 


Sum of N. 

Alternating sum of N. 

Product of N. 

Alternating product of N. 

Sum of magnitude of N. 

Alternating sum of magnitude of N. 
Cumulative sums. 

Running sum of NS consecutive elements of N. 
Inverse of +\. Difference of adjacent pairs. 
NS differences of differences of adjacents. 
Alternating series of length IS(1,-1,2,-2..). 
First IS triangular numbers. 
First IS triangular numbers. 
First IS figurative numbers. 
First IS figurative numbers. 
Division. Avoid DOMAIN ERROR for N+ 
Division. Force DOMAIN ERROR for 0 
Col-wise percentage per column. 
Col-wise percentage per column. 
Row-wise percentage per row. 
Row-wise percentage per row. 
Square without changing sign. 

Add vector N to each column of NM 
Add vector N to each column of MM. 
Multiply each row of NM by vector N. 
Multiply each row of NM by vector N. 
Ohm's Law - resistance of parallel resistors. 
Evaluating a two row determinant. 
Evaluating a three row determinant. 
Identity matrix: IS by IS. 

Identity matrix: IS by IS. 

Identity matrix: IS by IS. 
Multiplication table: IS by IS. 
Multiplication table: IS by IS. 


Lower triangular matrix: IS by IS. 
Outer product. 

Matrix product. 

Mid product of AX and AY. 

Prime numbers from 1...IS. 

Prime numbers from 1...IS. 


Greatest common divisor of vector I. 
Greatest common divisor of vector I. 
Table of divisibility. 

Table of divisibility. 

Sum of all elements in NA. 


All factors of 
All factors of 


Is. 
Is. 


Accurately sum a vector of floating numbers. 
Find the exponent of NA such that NA*FA = A. 


Conversion Algorithms 


CA+OAF (OAF CA) -64xCAEALF A Convert to lower case for EBCDIC. 

CA+OAF (OAF CA) +32xCAEALF A Convert to lower case for ASCII. 

CA+OAF (OAF CA) +64xCAeELOW © Convert to upper case for EBCDIC. 

CA+OAF (OAF CA) -32xCAeELOW © Convert to upper case for ASCII. 

CA+LCT [OAF CA] A Convert to lower case. LCT «> OAV w/low/up. 
CA+LCT[1+0AF CA] A@ Convert to lower case. LCT «> OAV w/low/up. 
CA«UCT [DAF CA] ® Convert to upper case. UCT «> OAV w/up/low. 
CA«UCT [1+0AF CA] ® Convert to upper case. UCT «> OAV w/up/low. 
CA+'FDCBA' [+/IA°.210x6 7 8 9] © Students grades given score IA. 

CA+'FDCBA' [+/IA°.210x0 6 7 8 9] aA Students grades given score IA. 

IT«+/Ix 1*I<161I<0, (, (10*14)°.x1 5) ['IVXLCDM'1C] «© Roman numerals to Arabic. 
I«+/Ix 1*I<161I<0, (, (1,10*13)°.x1 5) ['IVXLCDM'1C]@ Roman numerals to Arabic. 


TA«("_1¢11+ppNA) &((1+|IS@1[[/,NA)pIS)TNA a Base IS representation of a number. 
TA« (—1611+ppNA) Q((1+|[10@1/[/,NA)p10)TNA # Base 10 representation of a number. 
NA« ( 1611+ppFA) &| (ISPNS)T(NS*IS)x1|/FA am IS place-base NS rep. of a fraction. 
H+ '0123456789ABCDEF'[,816 16TOAF C] Am REXX C2X. Convert character to hex. 

H+ '0123456789ABCDEF' [1+,816 16TOAF C] Aa REXX C2X. Convert character to hex. 
H+'0123456789ABCDEF' [,&((1+|16@1[[/,N) 916) TN] @® REXX D2X. Decimal to hex. 

H+ '0123456789ABCDEF' [1+,&((1+|16@1[[/,N) p16) TN] m REXX D2X. Decimal to hex. 


NA«>4"c[~1+ppCA]',',CA ® Convert non-empty CA to NA - rank 21. 
NA«>4""c[ppCA]',',CA ® Convert non-empty CA to NA - rank 21. 
NM+>4"c[1]',',CM © Convert non-empty CM to numeric vector. 
NM+>4"°c[2]',',CM © Convert non-empty CM to numeric vector. 
Ne14o'0O',',',CM © Convert character matrix to numeric vector. 
Ie1+@'0 ', (CEe' 0123456789')/C © Convert to numeric, throw out characters. 
T<101'0123456789'1C a Convert character to numeric. 

T+101 14+'0123456789'1C ® Convert character to numeric. 

T+101Q8M a Convert rows of digits to base 10. 

IoC ® Convert character vector to vector of digits. 
T+1617 ([ .5x (2| 9H) +1+1pH)<'0123456789ABCDEF'1H A REXX X2D routine. Hex to Dec. 
T1617 ([ .5x (2| 9H) +19H)c16|'123456789ABCDEF'1H A REXX X2D routine. Hex to Dec. 
Cee4t™ ('FEC80124936DA5B7'1H) 6° <'1111000010011010' A Convert hex to binary char. 
Cee4t™ ('FEC80124936DA5B7'1H) 6° <'0111100001001101' A Convert hex to binary char. 


BM«& ((1+|2@1[[/1I)e2)TI ® Convert integer to binary. 

IS+21B © Convert binary to integer. 

C+OAF 217° (([.125x19B) cB ® Convert binary to character. 

Be, &(8p2)TOAF C © Convert character to binary. 

I¢OAF C A Convert character to EBCDIC/ASCII positions. 
C+16 16p0AV f§ EBCDIC/ASCII sequence in HEX table. 

C+OAFY (49256) TI+(256*4) xI<0 ® Convert integers to double words. 

T+ (256181) - (256*4) x128<,1t [1] I+OAF Ca Convert double words to integer. 

T+ (256181) - (256*4) x128<,1t [2] I+OAF Ca Convert double words to integer. 

Me (256114 [0]N) x (x128-M) x16* 63/ 70+128|M+1t[0]N a Convert halfword to float. 


] 
Me (256114 [1] N) x (x128-M) x16* 63/ 70+128|M+1t[1]N a Convert halfword to float. 
C+OAF 161° ([ .5x(2| oH) +1+1pH) <'0123456789ABCDEF'1H A REXX X2C routine. Hex/Char. 
C+OAF 161° ([ .5x(2|eH)+19H) c16|'123456789ABCDEF'1H A REXX X2C routine. Hex/Char. 


Date and Time Algorithms 


IS<0 100 10013TOTS 

(IW IX IY)<0 100 100TIS 
Be0#.=400 100 4°.|1IS 
C+'06:06:05'F3T340TS 


Joining current date. 

Separating date IS - YYYYMMDD format. 

Is IS (YYYY) a leap year? 

Current time - HH:MM:SS. 

C+'56/06/0005' FOTS [1613] Current US date - MM/DD/YyYYY. 

C+'56/06/0005 06:06:05'FOTS[ (1613) ,3+13] A Current US date and time. 
C+'56/06/0005' FOTS [613] A Current European date - DD/MM/YYYY. 
C«'56/06/0005 06:06:05'FOTS[($13),3+13] mM Current European date and time. 

IS+#D+ (M>0 0,+\30+1 ~2,6€5 4p %c1 0)+(M>2)a0=4|]Y a Julian day (DDD) given Y MD. 
ITS+D+ (M>0,+\30+1 ~2,6€5 4p cl 0)+(M>2)a0=4|/Y am Julian day (DDD) given Y M D. 
IS«(1000xY)+D+(M>0 0,+\30+1 ~2,6€5 4p%c1 0)+(M>2)a0=4/Y am Julian date (YYYYDDD). 
IS« (1000xY) +D+ (M>0,+\30+1 ~2,6€5 4p cl 0)+(M>2)A0=4|Y © Julian date (YYYYDDD). 
IS+7|6+1IS+-/[IS+4 100 400 © Weekday (S-S:0-6) of first of year IS (YYYY). 
IS«7|+/D(#M>'0032503514624'),|[5 1.25x4 100TY-3>Ma Weekday (S-S:0-6) given Y M D. 
IS¢+7|+/D (#M>'032503514624'),|[5 1.25x4 100TY-3>M A Weekday (S-S:0-6) given Y M D. 
I+1+0 10010 127(0 1210 100TIS)-2+6i1NS a NS months before date IS (YYYYMM). 
I+1+0 10010 127(0 1210 100TIS)-1+61NS a NS months before date IS (YYYYMM). 
T+1+0 10010 127(0 1210 100TIS)+1NS aA NS months after date IS (YYYYMM). 

T<1+0 10010 127(0 1210 100TIS)-1-1NS aA NS months after date IS (YYYYMM). 

IS+0 1210 100TIS © IS months from "0" given IS (YYYYMM) date. 
TS+1+0 10010 12TIS-1 © Date IS (YYYYMM) given IS months from "0". 
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External Name Routine Algorithms 


Ve (What 72° 8tUAF™ (c'* * '), ALP) /ALP a File modes of R/W disks. 
Ve (What Ba 8t AF’ (c'* * '), ALP) /ALP a File modes of R/W disks. 
Ve( (Rat 72 8tU AF’ (c'* * '), ALP) /ALP a File modes of R/O disks. 
Ve('R'=t Ba 8t AF’ (c'* * '), ALP) /ALP a File modes of R/O disks. 
Ve('H'=t° 72° 8tU AF’ (c'* * '), ALP)/ALP a File modes of disk extensions. 
Ve (TE'=t° 80° 8T° AF (c'* * '),”ALP)/ALP a File modes of disk extensions. 


M¢eAFM FILEID 

S«+M AFM FILEID 

VV+AFV FILEID 

SeVV AFV FILEID 

R+('EXIT ',V,' (ARG(1))')AEXEC C 
VV+AFV 'A A A3',O0PM AFV 'A A A3' 
VV+ (C#' ')SAN C 


VV<+' ' DAN C 

VV«(C#' ')CAN C 

VV<+' ' DANe' ',PR AA 

CM+>CS DAN V 

C+('(B1 1 ', (@0B),')')ATR B 
Be (' (Bl 1 ', (®8xpc),')')RTA Cc 
T+(' (B8 1 ', (FeC),')') RTA Cc 
Te(' (12 1 ', (@.5xpC),')')RTA Cc 
Te+('(14 1 ', (@.25xpC),')')RTA Cc 
C+('(B8 1 ', (FpI),')")ATR I 
C+('(I2 1 ', (%pI),")')ATR I 

Cet (Lard. MS Ce OT yt) ATER: oll 
Fe('(E4 1 ', (@.25xpC),')')RTA Cc 
C+('(E4 1 ', (@oF),')')ATR F 
NA<CTN CA 


IS+21'AIBJE' 'C'v.e€°cPFA A 


A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 


Read data from fixed file into matrix M. 
Write M or VV to a fixed file. 

Read data from variable file into VV. 
Write M or VV to a variable file. 

Perform REXX built-in function V(C). 
Reversing disclose. 

Sentence to vector of words, keep blanks. 
Sentence to vector of words, drop blanks. 
Sentence to vector of words, drop blanks. 
Nested AA to vector of words. (See 11-34) 
Vector to matrix at selected character. 
Convert binary to character. 

Convert character to binary. 

Convert character to 1 byte integer. 
Convert character to 2 byte integer. 
Convert character to 4 byte integer. 
Convert 1 byte integer to character. 
Convert 2 byte integer to character. 
Convert 4 byte integer to character. 
Convert character to floating point. 
Convert floating point to character. 
Convert character array to numeric array. 
Type of A. i1-char, 2-num, 3-mixed. 


Financial Algorithms 


Present value of cash flows NA at int FS. 
Future value of cash flows NA at int FS. 
Annuity coefficient: IA periods at int FA. 
Compound interest: IA prds, FA int, NA prn. 


A« (+1+FS) .oNA 
A«(1+FS) .NA 

A+FA+81- (1+FA)°.x-IA 
A+NA° .x(1+FA)°.*IA 


>D DD 


Formatting Algorithms 


TA+1+|[101/NA 


CM+1 0410 10T1NS 
OFC[3]<'«! 
OFC[4J<'«' 
CM<#c1/AA 


CM+I + (-I+(-2-2>ppAA) T=AA) }¢c1/AA 
C#' ')c°Cec [1] CM 
C#' ')c°Ce#c [2] CM 


WWd WWW 
FOROFOFS 
WwWd WWD 


ee 


IA++/NA#| NA+ (10+*1NS) °.xNA 
IA++/NA#| NA+ (10*-1-1iNS) °.xNA 


. AB<0 
. ABO 
. VB<+0 
. VB«+0 
.*B<0 
.*B<0 
.¥B<0 
.¥B<0 


PRP RPP PPP 
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Field width for integral part of number. 
Field width <NS of fractional part of number. 
Field width <NS of fractional part of number. 
Create col header CM for NS wide text. 
Fills format overflow with '«'. 

Fills format overflow with '«'. 

From nested to simple char image. 
Nested to simple char image w/o extra blanks. 
Columnize rows of data separated by blanks. 
Columnize rows of data separated by blanks. 
Format and right justify columns of report. 
Format and right justify columns of report. 
Format and right justify NS wide columns. 
Format and right justify NS wide columns. 
Attach row numbers to a matrix. 

Display vector of vectors vertically. 

Truth table: All possibilities of and(a). 
Truth table: All possibilities of and(a). 
Truth table: All possibilities of or(v). 
Truth table: All possibilities of or(v). 
Truth table: All possibilities of nand(Aa). 
Truth table: All possibilities of nand(Aa). 
Truth table: All possibilities of nor(¥). 
Truth table: All possibilities of nor(¥). 


Function Algorithms 


«(_1#0NC, [''] OAV) /OAV fA All valid one character APL2 names. 

CM+ (~140NC C) /Ce'O',, [''] ALP © All valid two character O names. 

CM+ (~14¥0NC C) /C+'O', ALP[&(NSp26) T126*NS] ® All valid NS-character O names. 
CM+« (~140NC C) /C+'O',ALP[1+&(NSp26) T126*NS] A All valid NS-character O names. 


A0O+OIO+A A AlI=A+1 AO=A Ao Change OIO dependant argument. 
Al+A+OI0O-1 A AI1=A AO0O=A-1 a Change OIO dependant argument. 
A0+-OIO0O-A A AlI=A-1 AO=A A Change OIO dependant result. 
Al+A+~O1I0O A AI1=A AO=A+1 A Change OIO dependant result. 
~,A\('@'#CM) v#\CM='''')/,CM)+«' 'A Decommenting the OCR of a function. 


> 


PFK+12+ 12|PFK Keep PFK within range 1-12. 


VV+(c[1]ONL 3 4)~ ' © List of functions and operators without ' '. 
VV+(c[2]ONL 3 4)~"' ! © List of functions and operators without ' '. 
ies, [4 BERS PONE, 3 4 ® Quick list of all functions and operators. 
M+, ['']OCR ’<[2]ONL 3 4 ® Quick list of all functions and operators. 
IS<++/tp "OCR ”c[1]ONL 3 4 ® The number of code lines in a workspace. 
IS++/t’p OCR < [2] ONL 3 4 © The number of code lines in a workspace. 
IS«(+/t’p°OCR”c<[1]M)+tpM+ONL 3 4 a The average # of lines per pgm. in a WS. 

IS+ (+/tp OCR [2] M) +tpM«ONL 3 4 © The average # of lines per pgm. ina WS. 

CM+ (le (cC) Ee "OCR < [1] CM) ACM+ONL 3A Find functions that contain string C. 

CM+ (le (cC) Ee" OCR”< [2] CM) ACM+ONL 3A Find functions that contain string C. 
IS+topONL 2 3 4 a The number of objects in a workspace. 


CM+'OEM' OEC 'expression' © Simulate error and continue. 

'OES OET' OFA '‘expression' ® Do-or-die error checking. 

Ae 1TOEC '‘expression' © Capture result of expression or error MSG. 

AcOEC™,/(c'SA'), (ONL 3 4),c'+1' a Put stop control on unlocked objects. 

A«OEC™,/(c'TA'), (ONL 3 4),c'«199'm Put trace control on unlocked objects. 

AcOEC™,/(c'SA'), (ONL 3 4),c¢'«10' @ Remove stop control from all objects. 

A«OEC™,/(c'TA'), (QNL 3 4),c'«10' m Remove trace control from all objects. 

SAfn+1+BStOLC © Stop function "fn" on next line if BS true. 

>B/I © Branch to line in I of first true B. 

>PS>I © Branch to line in position PS of I. 

IS:2(100<NS+NS+1) /IS © Branch to label on condition. 

+IS+0~B © IF. Branch on condition B. 

»ISx1~B © IF NOT. Branch if condition B false. 

»2OLC+IS © Branch to offset IS from current line. 

+0 © RETURN. Leave function, return to caller. 

> A EXIT. Leave all levels of program. 

Ae#PS>2VV © Execute statement PS in VV of statements. 

A+s+tBSt'else part' ‘then part' a If Then/Else. 

V«OFX(cC),2 OTF’c[1]ONL 2 © Create a function C to recreate all vars. 

V«OFX(cC),2 OTF’c[2]ONL 2 © Create a function C to recreate all vars. 

come t/oe: © Life: next generation given O<=>140 3x3 wins. 
B)/,A)+fn(,B)/,A © WHERE. Execute "fn" on condition B mask. 

ee "BS/cA © Conditional execution of monadic function. 

o'ZeX lo ', ((1<=Y)/'PR™'),'Y' A ZeX(lo PR)Y. Perform "lo" as scalar. 

ZX loty O1O+B A Z+X(lo IO B)Y;OI0O. Run "lo" in origin B. 

Z+>[I] (c [I] AX) LlocAY © ZeAX(lo OAX I)AY. Run "lo" on axes I of AX. 

Z+>[I] (cAX) loc [I] AY A ZeAX(lo OAY I)AY. Run "lo" on axes I of AY. 


Manipulating Characters Algorithms 


M+MU [~1++\B;] 

M+MU [+\B; ] 

M«M[[\Bx19B; ] 

VeL/V 

M+LS/7,[ .5]V 
M+LS/,[.5]V 

V+ (LSxpV) pV 
Ve(,L°e.21f/L) \v 

Ve (VitLtc) tV~ (14+V1iTC) VV 
Ve ( 14+vitisyc) tVe(VitCc) VV 
Veev, CNSOS 

Vee (cNSPS) , V 

Ve (V,X) [A(tpV),P] 

Ve 14(,61,v\CS¥6CM) /,CM,CS 
vey [AYeX] 

Vee (-L+1) t°'V 

Vee (Lt+1) tv 

V+ ((~B) -B\L) /V 


VeeNStV 
Mei e* Vv 

Me,[ .5]V 

Me, [.5]V 

M+X, [.5]Y 
M+eX, [1.5] Y 

M+ (([ .5xpV) ,2) pV 
M+X, [ .5]Y 
M+X, [.5]Y 
M+>[0]V WX Y 
Me>[1]V WX Y 
M+Q>V W X Y 


Me>V W X Y 

U+ (_141,V¥16V) /V 

Ue ((V1LV) =1pV) /V 

Ue (vf4<\Ve.=V) /V 

MU< (141, V/MG#10MG) /MG 
MU< (v/<\MA.=8M) /M 
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Replicate MU given boolean start vector. 
Replicate MU given boolean start vector. 


Replace rows of M given boolean start vector. 


Duplicate items in vector V, L times. 
Duplicate vector V, LS times. 

Duplicate vector V, LS times. 

Duplicate vector V, LS times. 

Expand V given length vector L. 

Keep everything from tC to f1/C in V. 
Keep everything from tC to f1‘C in V. 
Insert NS items S after each item of V. 
Insert NS items S before each item of V. 
Insert X after positions P in V. (pP) =pX 
Matrix to vector at character CS. 

Move items X to end of Y. 

Open gaps before each item of V, L wide. 
Open gaps between each item in V, L wide. 
Open gaps between points B in V, L wide. 
Open NS-1 spaces between each item in V. 
One column matrix from vector V. 

One row matrix from vector V. 

One row matrix from vector V. 

Two column matrix from two vectors. 

Two column matrix from two vectors. 

Two column matrix from one vector. 

Two row matrix from two vectors. 

Two row matrix from two vectors. 

N column matrix from N vectors. 

N column matrix from N vectors. 

N column matrix from N vectors. 

N row matrix from N vectors. 


Unique. Drop duplicates from vector. 
Unique. Drop duplicates from vector. 


Unique. Drop duplicates from list. 


Unique. Drop duplicates from ordered vector. 


Unique. Drop duplicates from ordered list. 


Manipulating Numbers Algorithms 


B+e<\B 

Bes\B 

Bev\B 

BeA\B 

B+e+/A\B 

B<Bv#\B 

B+#\B 

B+2#/0,B 

Be2</0,B 

B+2>/B,0 

B+e16B 

BeI/(pI)p1 0 

B+IS/Lpl 0 

Le 2-/P,1+pB 

Le 2-/0,P 

L++/U° .=V 
L+(14P,1+ 9B) -P+B/19B 
NA«+/A\CA=!_! 
NA++/a\OCA='" '! 

N++/7 (+\B) cN 

Ne+/" (L/1+1eL) cN 

Ne+/ (+\"141,G410G) cN 
Ne+/7 (+\~ 141, v/MG#10MG) cN 
NeN+.xV° .=U 
NeNX.*V°.=U 

A+AX+.€Y 

Te+\ (C="(") = 7140,C=")" 
VN<«M, .1V 

N+«M| .1V 

Be (<\'/*'eECA) vO<\'/* 'EOCA 
B+#\B\24#/0, (B+BXVBY) /BX 
N+ (~B) +B\N 

N+ (NSx~B) +B\N 
TSe|- 11a |+/4\10te"c 
IS<97+ 97/IS 
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All zeros except the first one. 

All ones after the first zero. 

All ones after the first one. 

All ones to the first zero. 

Count of leading ones. 

Parityt+tconnectors. Connect odd & even ones. 
Parity. Connect odd and even ones. 

Gray code or reflected binary. Inverse of #\. 
Boolean first ones in each group of ones. 
Boolean last ones in each group of ones. 
Boolean start vector to boolean end vector. 
Alternating sequence of I ones and zeros. 

L sequences of IS ones and zeros. 

Length vector given first position indices. 
Length vector given last position indices. 
Length vector given unique items in V. 
Length vector given boolean vector B. 

Number of leading blanks. 

Number of trailing blanks. 

Add subvectors of N given B breaks in group. 
Add subvectors of N given L items per group. 
Add subvectors of N from consecutive G dups. 
Add subvectors of N using ordered list MG. 
Sum by bucket. pN = pV. U = buckets. 

Product by bucket. pN = pV. U = buckets. 
Count of the number of Ys in each row of AX. 
Depth of parenthesis. 

Position(s) of V in each row of M. 

Position of V in corresponding row of M. 
Position of comment in each row of array CA. 
State of switch given BX=on & BY=off spikes. 
Expand N, but change fill item to one. 
Expand N, but change fill item to NS. 

ISBN check digit generator from C. CaA.eENUM 
SWIFT check digit from IS bank number. 


Numeric Range Algorithms 


x.5-({/NM) #4Ne[ /| NM 


-5- (| /NM) #Ne|/|NM 


TA+ (XNA) x| | 
FA+« (XNA) x (| .5+|NA+NS) xNS 
[.5+|NA 

| ( rea +|NA 


TA+ (XNA) x 
TA+« (xNA) x 
FA«¢(|IS) #N. 
N+«NXN<NS 
N«NXNS<N 
N+ (>/Ne.>0 NS) /N 
N<«O/NS|N 
N+«Nx 1*B 
NA«(c1 ~1)xNA 
N«X+NSxX1i1I8S 
N+«X+NSx 1+11S 
NeX+ (xN) x11+| 
N+X+0, (XN) x1| 
Ss 
[ 


NeY - 
NeY - 
0)+| (Y-X) a 
IS#0)+| | ( 


xX 
x 
NeX+1ISx10[ (I (Y 
NeX+ISx~1+10 
NeeNX+1 °° IX 
Ne” 1+eNX+1 7° 1X 
NA+ (xNAX) x (| NAY) 
NA+NAY | NAX 
NA+ (xNAY) x | NAX 
NA+NS+(-NS) |NA 


| 
| 
a 
( )+1IS 


| |NAX 
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Maximum value of NM. 

Maximum of magnitude of NM. 

Maximum of positive value of MM. 

Maximum of magnitude of NM preserving sign. 
Minimum value of NM. 

Minimum of magnitude of NM 

Maximum of negative value Of NM. 

Minimum of magnitude of NM preserving sign. 


Index of the largest item. 

Index of the largest item. 

Index of the smallest item. 

Index of the smallest item. 

Fractional part of number with sign. 
Magnitude of fractional part of number. 
Fractional part of number. 

Magnitude. Absolute Value of NA. 
Integralt+tfractional part of positive number. 
INTEGER. Truncate to whole number. 
Rounding to nearest NSth. 

Rounding to nearest whole number. 

Rounding to nearest even number. 

Rounding to IS decimal places. 

Force to 0 any N greater than NS. 

Force to 0 any N less than NS. 

Keep everything in range [0,NS). 

Force N numbers to range O<NsNS. 

Change sign on condition B. 

Plus Minus. Number and its negative. 
Arithmetic progression vector. 

Arithmetic progression vector. 

Index Generator. Range from X to Y. 

Index Generator. Range from X to Y. 

Index Generator with step IS. From X to Y. 
Index Generator with step IS. From X to Y. 
Sequence from NX for IX items. 

Sequence from NX for IX items. 

REMAINDER from division of NAX by NAY. 
MODULO of NAX and NAY. 

SIGN. Transfer of sign from NAY to NAX. 
Residue replacing 0 with NS. 


Numerical Geometry Algorithms 


ZACAXX 1200AY+180 
ZACAXX 12O0AY 
NA+|0J110A 

NA+ | AX+  110AY 
NA<1200J11L0A 
NA«120AX+ 110AY 

NA+ (180+01) x1200J110A 
NA+ (180+01) x120AX+ 110AY 
NA<9 11°.0ZA 

ZACAX+ 11LOAY 

ZA« (9OZAX) + 110110ZAY 
ZA+ 1104+ZA 

S++/|2-/Z 

ZA+ZAt+6J9 

ZA+ZAX1D30 

ZLAZAXXZS 

ZACZAX2.1 

ZA+ZAX2 .1D30 

ZA« (2, 1103)+.x9 11°.0ZA 
ZA+ZA+ 110.3x9O0ZA 
LAct+ZA 

LA«-+ZA 

ZA+«( 10+~BA) OZA 

VZA+, ZA 

Ze*OQ0J2x (1NS+1) +NS 
Z+*O00J2x (0,1NS)+NS 
VZ«0, *00J2x (1+1NS) =NS 
VZ+0,  *00J2x (1NS) +NS 
V«ex110(ZS-14Z) x+2-/Z 
Z¢(15)°.+ 110110 

Z«V+ 110£ V 

Z¢0J111 062/>V(11+pV) 
Z«O0J111 062/0,>V(1pV) 
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A 


From magnitude AX and degrees AY to complex. 
From magnitude AX and radians AY to complex. 
Get magnitude of A. 2=tTpA (x,y) pairs 

Get magnitude of real AX and imaginary AY. 
Get angle in radians of A. 2=tpA (x,y) pairs 
Get angle (rad) of real AX and imaginary AY. 
Get angle in degrees of A. 2=tpA (x,y) pairs 
Get angle (deg) of real AX and imaginary AY. 
Split complex array into real & imaginary. 
Join XA real and YA imaginary to complex. 
Real from ZAX and imaginary from ZAX. 

Swap real & imaginary. 

Length of polygon. 

Move figure by x=6, y=9. 

Rotate figure 30 degrees. 

Rotate figure in direction of point ZS. 
Isometric scaling by 2.1. 

Rotate & scale at same time. 

Rectangular scale by x=2,y=3. 

Skew by 30 percent in y. 

Mirror in X. 

Mirror in Y. 

Mirror in X if B. 

Pinpoint figure rather than polygon. 

Regular unit polygon of NS edges. 

Regular unit polygon of NS edges. 

NS spokes of unit wheel. 

NS spokes of unit wheel. 

Sign of point ZS relative to edges of Z. 

All pixels ina 5 by 10 window. 

Plot of scalaroid function 'f' for data V. 
Outline of bar chart of data V. 

Outline of bar chart of data V. 


Ze 34,Z-[0] ((2-/2Z+3),0)°.x0 1, (1+1D60),2 a Koch island new generation. 
Ze 34,Z-[1] ((2-/2+3),0)°.x0 1, (1+1D60),2 a Koch island new generation. 


VZ+ (CZX) + (CZY-ZX) x (1NS+1)=+NS 
VZ+ (CZX) + (cZY-ZX) x (0, 1NS) +NS 


M+2 271414 

M+2 2714 

M+2 2 271418 

M+2 2 2718 

M+2 2 2 2714116 

M+2 2 2 27116 
Z+OJ1iM[1 0;] 

ZeOJ1iM[2 1;] 

ZeOJ1iM[1 0;]xD+D-M[2;] 
Z<OJ1iM[2 1;]xD+D-M[3;] 
VZ<( .5 .5xNS)+cZ 


A 


A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 


Z«09110 1602/||/M, [0.5] -M+11 9°.0ZA 
Z+O0J110 162/||/M, [1.5] -M+11 9°.0ZA 


Z+(, [10] (1+1NS) +NS) 1M+. xZ 
Z+(, [10] (1NS)+NS) M+. xZ 
Ve (x/ (+/X+2) -0,X) *.5 

NS<«| .5x+/Yx (~16X) -16X 
A«10 12°.0ZA 

AV+AX° .,AY 


A 


A 
A 
A 
A 
A 


Cascade NS-fold fill between two polygons. 
Cascade NS-fold fill between two polygons. 
Unit square. 

Unit square. 

Unit cube. 

Unit cube. 

Unit tesseract. 

Unit tesseract. 

Parallel projection of 3D object in M. 
Parallel projection of 3D object in M. 
Perspective projection from distance D. 
Perspective projection from distance D. 
Stereo pair. (Eye separation NS) 

Window enclosing Z. 

Window enclosing Z. 

NS-point spline. (M=Bezier matrix, Z ctrl pts) 
NS-point spline. (M=Bezier matrix, Z ctrl pts) 
Area of a triangle given side length. 3=pX 
Area of a polygon given X,Y endpoints. 

From complex to magnitude and radians. 2=tpA 
Cartesian product: all pairs of AX, AY. 


Selecting Positions Algorithms 


Pe (+/B) tYB 

P+B/itpA 

VPe( -BA) /,t%.4-:/1" PBA 
PM+& (pA) TP 

PM+1+& (pA) TP-1 

Pe 14+\0,L 
Pe 14+\1,L 
P+ (<\~CMe'! 
P+ (TOpCM) - (1, CM=' 
P+1+(toOpCM) - (1,CM='! 
PO«+(C#' ')il 
PO+ (pC) - (1,C=' 
PO+1+ (pC) -(1,C='! 
PO+Bil 

PO+ (+\X="Y) 1NS 
PO+VV1LCC 

PO+ ($X) 1Y 

PO+ (pX) - (1,X#Y) 11 
PO+1+ (pX) - (1,X#Y) 11 
P+ (CECX) /1pCX 

P+ (CXEC) /19CX 

P+t (~CXeEC) /1pCX 


')+.x1 1tpcmM 
")ya1 
ay eg 


SaDIDIDIDIIDIDIDIDIDIIDIDIDIDIIDIDIDIIIDIDIIDIDIIDIIIDIDIDIDDIDD 


Position of first blanks in rows of M. 
Position of first blanks in rows of M. 
Position of trailing blanks in rows 
Row positions of MX in MY. 

Row positions of MX in MY. 


Row positions of MX in MY 


(0 for not found). 


Positions of ones in boolean vector B. 
Positions of ones in boolean vector B. 

Row positions given boolean vector B. 

Vector of positions of ones in boolean array. 
Coordinates of A corresponding to offsets P. 
Coordinates of A corresponting to offsets P. 
Positions of ones given length vector L. 
Positions of ones given length vector L. 


Position 
Position 
Position 
Position 
Position 
Position 
Position 
Position 
Position 
Position 
Position 
Position 


of 


the 
the 
the 
the 
the 
the 
the 
the 


first non-blank char by row. 
last non-blank char by row. 
last non-blank char by row. 
first non-blank char. 

last non-blank char. 

last non-blank char. 

first satisfied condition. 
NSth Y in X. 


first occurrence of C in VV. 


last Y in X - 


from left. 


last Y in X. 

last Y in X. 

Positions of start of C in string CX. 
Positions of items in set C in string CX. 
Position of first item in CX not in C. 


Sorting Algorithms 
NM+NM [ANM; ] 
NM+NM [YNM; ] 
NM+NM [ANM TI ; ] 
[ 
[ 
[ 


CM+CM[ADAF CM;] 
CM+CM[VOAF CM;] 
CM+CM [SEQYCM; ] 
CM+CM [SEQACM; ] 
M«M[YVL/L;] 

VeVv [AATV] 

V [AB] «V+X,Y 
Vex, “Y 

CVV+CVV [ADAF>CVV] 
IV<+AANA 

aoe ae aes 
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A 


Sorting NM in ascending row order. 

Sorting NM in descending row order. 
Choosing sorting direction I +A, OU, or -D. 
Sorting CM in ascending row order. 

Sorting CM in descending row order. 

Sorting CM in reverse SEQ order. 

Sorting CM in SEQ row order. 

Sort by highfliers - M «++ groups of length L. 
Mesh V according to mask pattern IV. 

Mesh X and Y in V using boolean pattern B. 
Merge X and Y alternately. 

Sorting CVV in alphabetical order. 

IV is the ranking of NA in same order. 

IV is the ranking of NA in same order. (fast) 


(, A) «( ae At+ a /([/,A)xix/ 14pA] © Sort each row in ascending order. 

(, See ee [A, A+(pA)p([/,A)x1x/ 14pA] © Sort each column in ascending order. 

Ae>(cVAA) 1 Aec [— 1+ pA A+c1/A ® Sort each row in ascending order. 

Aes (ch ‘A) 0 Reo A+c1/A ® Sort each row in ascending order. 

Ae> [I] (c“A’A) 1 Aec [I< 2+ppA]A © Sort each column in ascending order. 2<ppA 

neg ees “AV A) 7 Rn ee ® Sort each column in ascending order. 2<ppA 
bo ~B] «V+ (B/X) B)/Y © Mask Operator. Merge X and Y using B. 

ee A © Pack an array into a vector based on BA. 
A)/,A)«<V © Unpack a vector into an array based on BA. 


Statistics Descriptive Algorithms 


AVG« (+/N) +1] oN 
AVG3<« (3+/NA) +3 


Average (mean) of N. 
Three wise rolling average. 


WAVGé« (N+. xNM) ++/N Weighted average of vector/matrix columns. 
WAVG« (NM+.xN) ++/N Weighted average of vector/matrix rows. 
MODE< (I=[ /I<«+/Ne .=NU) /NU« (v/<\Ne.=N)/N A Mode(s) of data. 


CAVE+¢ (+/NM) +1[ tT oNM Column averages of NM. 
CAVGe« (+/NM) +1[+/04#NM Column averages of NM. (non-zero) 
RAVE+¢ (+/NM) +1] tooNM Row averages of NM. 
RAVGe (+/NM) +1[+/04NM Row averages of NM. (non-zero) 
( 
( 


A 
A 
A 
A 
A 
A 
A 
A 


MED+«.5x+/N[(AN) [[.5x 1 0+9N+,N]] @ Median of non-empty N. 

MED+.5x+/N[(AN) [[.5x0 1+oN+,N]] © Median of non-empty N. 

RANGE¢ ([/N) -| /N © Range of non-empty N. 

STD« ((+/(,A- (+/,A) +N) *2) +Ne1f9,A)*.5a Total theoretical standard deviation of A. 
STD<« ((+/(,A- (+/,A)+1[p,A) *2) +1] 1+p,A)*.5@ Total standard deviation of A. 

STD¢« ( ( (Nx+/A*2) - (+/A) *2) *.5)+Ne1[TOpA A Row theoretical standard deviation of A. 
STD« ( ( (Nx+/A*2) - (+/A) *2) +Nx1[~1+N+«1[tOpA)*.5e Row standard deviation of A. 

VAR+« (+/(,A- (+/,A) +N) *2)+N+1fp,A oA Total theoretical variance of A. 

VAR« (+/(,A- (+/,A)+1[9,A)*2)+1/ 1+p,A A Total variance of A. 

VAR« ( (Nx+/A*2) - (+/A) *2)+(Ne1/ tOpA)*2 A Row theoretical variance of A. 

VAR« ( (Nx+/A*2) - (+/A) +2) +Nx1[~1+N+1[TOpA A Row variance of A. 

Vex~Y a Difference of sets. Elements of X not in Y. 
Ve (XeEY) /X Intersection of two sets of numbers. 


A 
VeY~Y~X fA Intersection of two sets of numbers. 
VeY, (~XeEY) /X © Union of two sets of numbers. 
VeY,X~Y © Union of two sets of numbers. 

Ne+/X° .=Y ®@ Frequency of X in Y. 

Me2|[| (12*1IS) °.+1+2*IS-11S © Truth table with IS variables. 

Me2|[ ( 14+12*1IS)°.+2*IS-11S ® Truth table with IS variables. 


Statistics Distribution Algorithms 


VeNt+.xYENeXe.*0 1 
C+YHX°.*11S+1 
C+YHX*e.* (1IS+1) -1 
N«(, [''] NA) 1oN 

N+ (, [''] NA) iN 
C+K!N 


M+ (K=+/M) /Me (No2) T114+2iNtKpol 


I<AN 
NS«(!K) xK!N 
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A 


Least squares linear fit given X,Y values. 
IS degree polynomial fit given X,Y values. 
IS degree polynomial fit given X,Y values. 
Eval. asc. ord. N-coeff poly. at points NA. 
Eval. dec. ord. N-coeff poly. at points NA. 
Combinations of N things taken K ways. 
Binary matrix of (N,K) combinations. 
Inverting a permutation. 

Number of permutations of (N,K) combinations. 


) 
M+ (</M) /M« (2, 18*2)9(,8M),,M+IS ISp1+1IS A All possible pairs of 1 through IS. 
M+ (</M) /M« (2, 18*2)9(,8M),,M+IS ISp1IS A All possible pairs of 1 through IS. 
Me (A42</M) /Me1+((-K) T1N+1)71(!K)xK!IN @© Numeric matrix of (N,K) combinations. 


Me (A42</M) /Me1+((-K) TIN) 71 (!K) xK!IN 


Me&(11+1IS)°.!11+1S 
M«&(0,11S)°.!0,11S 


Ne (11+1IS) !1IS 

N+ (0,11S) !1IS 

N«+Yx (X-1) !¥YxX-1 
Ne!N-1 

Ne (*-Y) x (Y*X) +!X 
Me+1+(11IS)°.+11S 
Me+ 1+(11S)°.+11S 
VeVe.!VeriIst+i 
Veve.!V<0,118 
Ne+/Yx (X*N) +!Ne1pYy 
Ne+/Yx (X*N) +!Ne71+1pY 
CA+' «' [BA] 

CA+' «' [1+BA] 
CM+>(|N)p7'«! 


Ne (N!X) x (Y*N) x (1L-Y) *X-NeiX4+1 
Ne« (N!X) x (Y*N) x (1-Y) *X-Ne 141X411 


A 
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a Numeric matrix of (N,K) combinations. 
Binomial coefficients from 1-IS. 

Binomial coefficients from 1-IS. 

Binomial distribution of X trials at prob. Y. 
Binomial distribution of X trials at prob. Y. 
Coefficients of the binomial. 

Coefficients of the binomial. 

Beta function. 

Gamma function. 

Poisson distribution of states X and Y avg. 
Hilbert matrix of order IS. 

Hilbert matrix of order IS. 

Pascal's triangle of order IS. 

Pascal's triangle of order IS. 

Taylor series at point X, coefficients Y. 
Taylor series at point X, coefficients Y. 
Plotting a curve from boolean values. 
Plotting a curve from boolean values. 

Create a histogram from numeric vector. 


Structural Algorithms 


ml 
) [1+BA] 

) [BAx (pBA) p11? pBA] 

) [1+BAx (pBA) pt 11 pBA] 
¢[1]BM)c“cv 
¢[2]BM)c“cv 


pAY) t ( (ppAY) p1) , PAX) PAX 
1ppAJA 
~1+(0#ppA) /ppA]A 
AV«c[(0#ppA) /ppA]A 
Ae (A(-ppA) T1 0) 8A 
IO<9,A 
IS+x/pA 
TS«x/14pA 
IO+ 1tpA 


5 
S+.5]A 
p 
t 


(B/,A)+«(+/B) pV 

A«tA 

A«to,A 

ActOpctA 

A<«tOpcA 
I0+1+(0,9,A)10+.=t”0p",A 
I0«(0,p,A)10+.=t0p",A 
B+Ae10 

BeA#A 

B<«0+/V 

BeA=A 

B+0x/V 
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Build array from boolean pattern. Insert §. 
Build array from boolean pattern. Insert §S. 
Build array from boolean pattern. Insert V. 
Build array from boolean pattern. Insert V. 
Build array from boolean pattern. Reduce A. 
Build array from boolean pattern. Reduce A. 
Change A, only if it is scalar, to vector. 
Change scalars to vectors at depths 0-2. 
Force each item to same shape by reshape. 
Force each item to same shape by overtake. 
Ghost Buster. Inc rank by one on last dim. 
Increase rank by one on the first dim. 
Increase rank by one on the first dim. 
Increase rank by one after dim IS. 

Increase rank of AX to rank of AY. 

Decrease rank of A by 1. Rank 2 or higher. 
Decrease rank of A by 1. 

Decrease rank of A by 1. 

Transpose every submatrix of A. 

Number of elements in A as vector. 

Number of elements in A. 

Number of elements in a plane of 3D A. 
Number of columns in A as vector. 

Number of columns in A. 

Number of rows in M as vector. 

Number of rows in M. 


All axes of array A. 


All column indices of array A. 
All row indices of matrix M. 


All indices of vector V. 
Rank of A. 

Rank of 
Rank of 
Rank of 
Replace 
Replace 


all items, 
selected items, 


The prototype of A. 
The type of A. 

Type of simple A. 
Type of simple A. 
Zeros, same shape 
Zeros, same shape 
zeros, same shape 
Ones, 
Ones, 


1-char, 
1-char, 


each item in an array. 
the first item in an array. 

the first item in an array. 
shape unchanged. 
shape unchanged. 
The first item in any rank array. 

The last item in any rank array. 


2-num, 
2-num, 


3-mixed. 
3-mixed. 


when A is simple. 
and structure. 
plus one. 
same shape and structure. 
same shape plus one. 


Text Arrangement Algorithms 


CM+ (-| .5x+/a\OCM=' ')OCM ® Centering left justified CM. 

CMe ([ .5x+/a\CM=' ')OCM A Centering right justified CM. 

CM« (J .5xt-/+/°a\"B(¢BeCM=' '))O6CMA Centering non-justified CM. 

CM+ (+/A\CM=' ') O>CM A Left justify matrix CM. 

CM+ (1-(1,CM=' ')11)oCM ® Right justify matrix CM. 

C+ (-| .5xO0[NS-pC) ONSTC © Centering C in field width NS. 

C+ (-NS) tC a Left justify C in field width NS. 
C+NSTC © Right justify C in field width NS. 
CM+« (1+B) CM © Replicate CM at rows indicated by B. 
(,M)«<(,M) [A, (2X.1toM)+[0]' '=M] A Move blanks to end of each row of M. 
(,M)+«(,M) [A, (2X.toM)+[1]' '=M] A Move blanks to end of each row of M. 
CM+(' 'v.#CM) /CM © Remove blank columns. 

CM+ (CMv.#' ')/CM A Remove blank rows. 

CM+ (~141,Bv1o¢Be' 'v.4#CM) /CM A@ Remove duplicate blank columns. 

CM+ (~141,Bv1¢B+eCMv.#' ') ACM ® Remove duplicate blank rows. 

Vell (BV1OB<+0,C#' ')/' ',C ® Remove lead, trail, and duplicate blanks. 
CM+(v\' 'v.#CM) /CM f@ Remove leading blank columns. 

CM+ (v\CMv.#' ') ACM f§ Remove leading blank rows. 

CM« (1-(1,' 'a.=CM)11)4[1] CM © Remove trailing blank columns. 
CM+(1-(1,' 'aA.=CM)11)+4[2] CM © Remove trailing blank columns. 

CM« (1- (1,CMa.=' ')11)4[0] CM © Remove trailing blank rows. 

CM+« (1-(1,CMA.=' ')11)4[1] CM © Remove trailing blank rows. 

Ve(v\c#' ')/C ® Remove leading blanks. 

Ve(ov\oc#!' ')/C @ Remove trailing blanks. 

((1=[\' 0'1C)/Cc)e' ! ® Replace leading zeros with blanks. 
((2=[\' 0'1C)/C)e' '! ® Replace leading zeros with blanks. 
VVesge' '''C,tT't'''((c=' ')/C)ect'" '"'' @ Sentence to vector of words. 
VV« ((2>/1,B)/1B) + (1+ (2</B,1)/1pB+C=' ')tT”™cC # Sentence to vector of words. 
VV«+ (1+ (2>/1,B)/19B) + ((2</B,1)/1pB+C=' ')t”cCa Sentence to vector of words. 
VV«+ (C#' ')cC fa Sentence to vector of words. 

Cee' ', VV A Sentence from vector of words. 


A Vector to matrix at selected characters. 
fa Copies. Create IS copies of C. 


CM+> (~VEC) cV 
C+ (ISxpC) pc 


Text Change/Select Algorithms 


Ce (14+Ci1'«')4C+2 OTF 'C! © Doubles quotes in an expression. 

Ce (Ci'<e')+Ce2 OTF 'C' © Doubles quotes in an expression. 

Cet PPh eo CCLEGH=T TE EY) fC) gear © Doubles quotes in an expression. 

Ce (Bv4\BeC=!'''')/C © Text (including quotes) in expression. 

VV« ( (~B) A¥\BeCH!'''')cC 9 Text (without quotes) in expression. 

Ce (#\CH'' '§ ')/C 9 Text (with first quote) in expression. 

Ve (1+VeEx) /V © Doubles each occurrence of X within V. 

VVY« (VVX,' ') [VX1VY] © Find description of VY from VX index to VVX. 
C+NS>(C#' ')cC © Finds word number NS in C. 

CM+ (v/CeECM) CM ® Finds the rows of CM containing C. 

CM+ (,1t [1] CecmM) /cM © Finds the rows of CM that start with C. 

CM+ (,1t [2] Cecm) CM © Finds the rows of CM that start with C. 
VV«+VVX~VVY © Proof. Returns items of VVX not in VVY list. 
Ce (a\C¥OTC[1])/c A§ Keep everything up to the 1st return. 

Ce (a\C¥0OTC[2])/C A@ Keep everything up to the 1st return. 

C+ (-14+C10TC[1]) tc fa Keep everything up to the 1st return. 

C+ (-14+C10TC[2]) tc fa Keep everything up to the 1st return. 

Ce (#\C=' ')/C A Keep even words in a phrase. 

Ce (4#\"°141,C=' ')/c A@ Keep odd words in a phrase. 

S+tNVV a Get (N+1)th item in vector V. 

M+e>e "co [1] tM(B/,M)<«(+/Be,M='o')p':HP1.' ':EHP1.'a Alternate beg/end tags. 

M+e>e"c [2] tM(B/,M)<«(+/Be,M='o')p':HP1.' ':EHP1.'a Alternate beg/end tags. 
CM+>e"c [1] TCM ((,CMeC) /, CM) <TC © Insert the first item of C where C is in CM. 
CM+>e"°c [2] TCM ((,CMeC) /, CM) <TC © Insert the first item of C where C is in CM. 
C+C~' ® Remove blanks in each string. 

C<+C~'! ! A Remove blanks. 

C#C~'., 23 Pl! © Remove punctuation. 

((,CA='  ')/,CA)«'-! © Replace all blanks with dashes. 
((,CAe1+C)/,CA) «TC © Replace all occurrences of element in array. 
CMeC; [> .5)0" © Underlines a string. 

CM+C, [.5]' ' © Underlines a string. 

CM+c, ( 1tOTC), (c#' ')\'! © Underlines non-blanks in a string. 


Trigonometry Algorithms 


NA<NAx0=+180 
NA+NAxX180+01 
NA+1200J11L°NA 
NA«120AX+ 110AY 
NA+ | OJ1L6NA 
NA+ |AX+” 110AY 
FA<+1LONA 
FA<20NA 
FA+30NA 

FA« 1ONA 

FA« 20ONA 

FA« 30NA 
FA<5ONA 
FA<«60ONA 
FA<+7ONA 

FA« 50NA 

FA« 60NA 

FA« 7ONA 
FA<«OONA 
FA<+40NA 

FA« 40ONA 
NA+AX+.*2 
FA+NAX*+NAY 
FA+*NA 
FA«+NAX®NAY 
FA<@®NA 
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Convert from degrees to radians. 

Convert from radians to degrees. 

Convert from NA pairs to radians. 2=tpNA 
Convert from AX, AY coordinates to radians. 
Get magnitude of NA pairs. 2=tpNA 

Get magnitude of AX, AY coordinates. 

Sine of NA in radians. 

Cosine of NA in radians. 

Tangent of NA in radians. 

Arcsine of NA in radians. 

Arccosine of NA in radians. 

Arctangent of NA in radians. 

Hyperbolic Sine of NA in radians. 
Hyperbolic Cosine of NA in radians. 
Hyperbolic Tangent of NA in radians. 
Hyperbolic Arcsine of NA in radians. 
Hyperbolic Arccosine of NA in radians. 
Hyperbolic Arctangent of NA in radians. 
Pythagorean: FA = side NA = side:hyp < 1. 
Pythagorean: FA hypotenuse NA = side ratio. 
Pythagorean: FA side NA = hyp:side = 1. 
Pythagorean: Sum of the squares of AX. 
The NAYth root of the items in NAX. 

The Exponential. e to the NAth power. 

The NAX based logarithm of NAY. 

The natural logarithm of NA. 


Vectorizing Algorithms 


M+Q>VV 
Me>VV 
VV<, 4M 
VV+ec[1]M 
VV+ec [2]M 
MV+«&>c [1]™ 
MV+&>c [2]™ 
Vvet, Fett v 
VvVet, eee 
VM+>"c [1] M 
VM+>~c [2] M 
Oia e iad 
Met, /MW MX MY 
Me>t,/c[1] “MW MX MY 
Mest, /c[2] “MW MX MY 
Ae>, /AA 
M+>, [0] /AA 
Ae>, [1] /AA 
Ae, >AA 
VeM[; 0] 
V«eM[;1] 
Meco) 1/A 
,. 141ppA]1/A 
((x/~14pA), 11,pA) pA 
© ("2h de; pA) pA 


a (+/v \ ome! ')t°c[1]M 
eee eo nd OMB 
Ve(c[1]M)~"' ! 
Ve(c[2]M)~"' ! 


VA+e> [141ppA] ~~ (+\B)cc[1+1ppAJA 


VV+« (+\B) cV 

VV+ (L/1pL) <V 
N++/7 (+\B) cv 
Ne+/" (L/1pL) <Vv 
V<«IS>(+\B)cV 
V+IS>(L/1ipL) cv 
Met, /V,cM 

M<e>, /M,cV 

Ae>, /AX, cAY 


VVe>,/((p VV) p’c1+LSt1) <"Vvv 


VVec [2] B/>VV 
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Column table. Vectors to columns of matrix. 
Row table. Vectors to rows of a matrix. 
Matrix to vector of column vectors. 

Matrix to vector of row vectors. 

Matrix to vector of row vectors. 

Vector of matrices to matrix of vectors. 
Vector of matrices to matrix of vectors. 
Vector of matrices to vector of vectors. 
Vector of matrices to vector of vectors. 
Matrix of vectors to vector of matrices. 
Matrix of vectors to vector of matrices. 
Joining corresponding items in vectrices. 
Joining conforming matrices - horizontally. 
Joining matrices - vertically. 

Joining matrices - vertically. 

Joining array of arrays - horizontally. 
Joining array of arrays - vertically. 
Joining array of arrays - vertically. 
Enlist - top down. Remove highest nesting. 
Vectorize - keep only 1st column of M. 
Vectorize - keep only 1st column of M. 


Vectorize - for any rank. 
Matricize - for any rank. 
Matricize - for any rank. 


Matricize - rank 0, 1, or 2. 

Reversing disclose. 

Reversing disclose. 

Reversing disclose. Eliminating blanks. 
Reversing disclose. Eliminating blanks. 
Split A into a vector of arrays given B. 
Split V into subvectors given boolean B. 
Split V into subvectors indicated by L. 
Sum of subvectors of V given boolean B. 
Sum of subvectors of V indicated by L. 
ISth subvector of V given boolean B. 
ISth subvector of V given length L. 
Prefix vector to each row of matrix. 
Postfix vector to each row of matrix. 
Combine 2 arrays along their last dimension. 
Reblock. Cut VV into many <LS length vecs. 
Reduce each item of VV by B. (pB)A.=Ep VV 


